home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / misc~1 / 409 / st_stamp / stsp.bas < prev    next >
Encoding:
BASIC Source File  |  1987-12-02  |  16.6 KB  |  323 lines
  1. 10    goto START
  2. 20    GETOLD:
  3. 30    for index=0 to 15:poke contrl,26:poke contrl+2,0:poke contrl+6,2:poke intin,index:poke intin+2,0:vdisys(0)
  4. 40    old%(index,0)=peek(intout+2):old%(index,1)=peek(intout+4):old%(index,2)=peek(intout+6):next index
  5. 50    return:'-----------------------------------------------------------------
  6. 60    GOWHITE:
  7. 70    poke contrl,14:poke contrl+2,0:poke contrl+6,4:poke intin,index
  8. 80    poke intin+2,old%(0,0):poke intin+4,old%(0,1):poke intin+6,old%(0,2):vdisys(0)
  9. 90    return:'-----------------------------------------------------------------
  10. 100   GOBLACK:
  11. 110   poke contrl,14:poke contrl+2,0:poke contrl+6,4:poke intin,index
  12. 120   poke intin+2,old%(1,0):poke intin+4,old%(1,1):poke intin+6,old%(1,2):vdisys(0)
  13. 130   return:'-----------------------------------------------------------------
  14. 140   SETOLD:
  15. 150   for index=2 to 15
  16. 160   poke contrl,14:poke contrl+2,0:poke contrl+6,4:poke intin,index
  17. 170   poke intin+2,old%(index,0):poke intin+4,old%(index,1)
  18. 180   poke intin+6,old%(index,2):vdisys(0):next index
  19. 190   return:'-----------------------------------------------------------------
  20. 200   EXTRALOOP:
  21. 210   text$="[0][|      EXTRA TOOLS          |][erase|cycle|finish]"+chr$(0)+chr$(0)
  22. 220   gosub KEYBOX
  23. 230   if key=1 then gosub ERASELOOP:gosub SETCOLOR:p=p+1:gosub SETFILL:return
  24. 240   if key=2 then gosub CYCLELOOP:return
  25. 250   end:'-------------------------------------------------------------------
  26. 260   CYCLELOOP:
  27. 270   for index=2 TO 15:gosub GOWHITE:next index
  28. 280   index=15:loop=370
  29. 290   while loop
  30. 300   gosub GOWHITE:if index=15 then index=1
  31. 310   index=index+1:gosub GOBLACK:loop=loop-1
  32. 320   for pause=0 to 500:next pause
  33. 330   wend
  34. 340   gosub SETOLD:gosub SHOWCURSOR
  35. 350   return:'----------------------------------------------------------------
  36. 360   SETHEIGHT:
  37. 370   poke contrl,107:poke contrl+2,0:poke contrl+6,1:poke intin,height:vdisys(0)
  38. 380   return:'----------------------------------------------------------------
  39. 390   PRINTTXT:
  40. 400   for i=1 to len(a$):poke intin+(i-1)*2,asc(mid$(a$,i,1)):next:poke intin+(i-1)*2,0
  41. 410   poke contrl,8:poke contrl+2,1:poke contrl+6,len(a$)+1:poke ptsin,dx:poke ptsin+2,dy:vdisys(0)
  42. 420   return:'-----------------------------------------------------------------
  43. 430   POLYLINE:
  44. 440   poke contrl,9:poke contrl+2,max!+1:poke contrl+6,0
  45. 450   for p=0 to max!:poke ptsin+(4*p),newpoint%(p,0):poke ptsin+((4*p)+2),newpoint%(p,1):next:vdisys(0)
  46. 460   return:'-----------------------------------------------------------------
  47. 470   SETMODE:
  48. 480   poke contrl,32:poke contrl+2,0:poke contrl+6,1:poke intin,mode:vdisys(0)
  49. 490   return:'-----------------------------------------------------------------
  50. 500   DRAWSHAPE:
  51. 510   mode=2:gosub SETMODE
  52. 520   gosub LOADSHAPE:gosub SETMATRIX:gosub SPINSHAPE:gosub ZOOMSHAPE:gosub MOVESHAPE
  53. 530   gosub SETFILL:gosub FINALSHAPE:gosub HIDECURSOR:gosub POLYLINE:gosub SHOWCURSOR:mode=1:gosub SETMODE
  54. 540   return:'----------------------------------------------------------------
  55. 550   CURSORFORM:
  56. 560   poke gintin,form:poke addrin,addrout:gemsys(78)
  57. 570   return:'---------------------------------------------------------------
  58. 580   FINALSHAPE:
  59. 590   for top=0 to max!: for side=0 to 2:newpoint%(top,side)=0
  60. 600   for idem=0 to 2:newpoint%(top,side)=newpoint%(top,side)+point%(top,idem)*clr(idem,side):next idem,side,top
  61. 610   return:'---------------------------------------------------------------
  62. 620   SETMATRIX:
  63. 630   for top=0 to 2: for side=0 to 2:clr(top,side)=abs(top=side):next side,top
  64. 640   return:'---------------------------------------------------------------
  65. 650   SETBUFFER:
  66. 660   for top=0 to 2:for side=0 to 2:buffer(top,side)=abs(top=side):next side,top
  67. 670   return:'---------------------------------------------------------------
  68. 680   FINALMATRIX:
  69. 690   for top=0 to 2:for side=0 to 2:fin(top,side)=clr(top,side):next side,top
  70. 700   for top=0 to 2:for side=0 to 2:clr(top,side)=0:for idem=0 to 2
  71. 710   clr(top,side)=clr(top,side)+fin(top,idem)*buffer(idem,side):next idem,side,top
  72. 720   return:'---------------------------------------------------------------
  73. 730   MOVESHAPE:
  74. 740   gosub SETBUFFER:buffer(2,0)=xt:buffer(2,1)=yt:goto FINALMATRIX
  75. 750   '----------------------------------------------------------------------
  76. 760   ZOOMSHAPE:
  77. 770   gosub SETBUFFER:xzom=xzom-(xzom=0):yzom=yzom-(yzom=0):buffer(0,0)=xzom:buffer(1,1)=yzom:goto FINALMATRIX
  78. 780   '----------------------------------------------------------------------
  79. 790   SPINSHAPE:
  80. 800   gosub SETBUFFER:angle=rotate/360*2*3.14159265
  81. 810   buffer(0,0)=cos(angle):buffer(0,1)=sin(angle)/1.23
  82. 820   buffer(1,0)=-sin(angle)*1.23:buffer(1,1)=cos(angle)
  83. 830   goto FINALMATRIX
  84. 840   '---------------------------------------------------------------------
  85. 850   LOADSHAPE:
  86. 860   restore
  87. 870   read shape$,max!:for idem=0 to max!:read point%(idem,0),point%(idem,1)
  88. 880   point%(idem,2)=1:next idem:on abs(shape$<>name$)  goto 870
  89. 890   return:'-------------------------------------------------------------
  90. 900   MANLOOP:
  91. 910   flag=1:gosub SETCLIP:bxo=197:form=4:gosub CURSORFORM
  92. 920   gosub SAMPLEBUTTON
  93. 930   if pstatus <1 or y<70 then 920
  94. 940   xt=x:yt=y
  95. 950   form=2:gosub CURSORFORM:name$="man":gosub DRAWSHAPE:flag=0:gosub SETCLIP
  96. 960   color 1,1,1,1,2:x=6:y=29:x2=x+27:y2=y+24:gosub FILLBOX:gosub SETCOLOR
  97. 970   return:'-------------------------------------------------------------
  98. 980   WHALELOOP:
  99. 990   flag=1:gosub SETCLIP:bxo=235:form=4:gosub CURSORFORM
  100. 1000  gosub SAMPLEBUTTON
  101. 1010  if pstatus <1 or y<70 then 1000
  102. 1020  xt=x:yt=y
  103. 1030  form=2:gosub CURSORFORM:name$="whale":gosub DRAWSHAPE:flag=0:gosub SETCLIP
  104. 1040  color 1,1,1,1,2:x=6:y=29:x2=x+27:y2=y+24:gosub FILLBOX:gosub SETCOLOR
  105. 1050  return:'-------------------------------------------------------------
  106. 1060  BOATLOOP:
  107. 1070  flag=1:gosub SETCLIP:bxo=272:form=4:gosub CURSORFORM
  108. 1080  gosub SAMPLEBUTTON
  109. 1090  if pstatus <1 or y<70 then 1080
  110. 1100  xt=x:yt=y
  111. 1110  form=2:gosub CURSORFORM:name$="boat":gosub DRAWSHAPE:flag=0:gosub SETCLIP
  112. 1120  color 1,1,1,1,2:x=6:y=29:x2=x+27:y2=y+24:gosub FILLBOX:gosub SETCOLOR
  113. 1130  return:'-------------------------------------------------------------
  114. 1140  ERASELOOP:
  115. 1150  gosub HIDECURSOR:gosub GROWBOX:x=1:y=71:x2=304:y2=188:color 1,0,1,1,1
  116. 1160  gosub FILLBOX:gosub SHOWCURSOR:for t=0 to 300:next
  117. 1170  return:'-------------------------------------------------------------
  118. 1180  ZOOMLOOP:
  119. 1190  z=z+1:if z>4 then z=1:gosub SAMPLEBUTTON:if pstatus<1 then return
  120. 1200  height=13:gosub SETHEIGHT:gosub HIDECURSOR
  121. 1210  a$=str$(z):dx=82:dy=48:gosub PRINTTXT
  122. 1220  height=9:gosub SETHEIGHT:gosub SHOWCURSOR:for t=0 to 300:next
  123. 1230  xzom=z/2:yzom=z/2
  124. 1240  return:'-------------------------------------------------------------
  125. 1250  ALINE:
  126. 1260  poke contrl,6:poke contrl+2,2:poke contrl+6,0:poke ptsin,x1
  127. 1270  poke ptsin+2,y1:poke ptsin+4,x2:poke ptsin+6,y2:vdisys(0)
  128. 1280  return
  129. 1290  SPINLOOP:
  130. 1300  s=s+1:if s>12then s=1:gosub SAMPLEBUTTON:if pstatus<1 then return
  131. 1310  height=13:gosub SETHEIGHT:gosub HIDECURSOR
  132. 1320  a$=str$(s):dx=118:dy=48:gosub PRINTTXT
  133. 1330  height=9:gosub SETHEIGHT:gosub SHOWCURSOR:for t=0 to 300:next
  134. 1340  rotate=s*30
  135. 1350  return:'-------------------------------------------------------------
  136. 1360  PATTERNLOOP:
  137. 1370  color 1,1,1,p,2:p=p+1:if p>23 then p=0:gosub SAMPLEBUTTON:if pstatus <1 then return
  138. 1380  x=6:y=29:gosub HIDECURSOR:X2=X+27:Y2=Y+24:gosub FILLBOX:gosub SHOWCURSOR:FOR t=0 to 300:next:gosub SETCOLOR:gosub SETFILL
  139. 1390  for pause=0 to 500:next pause
  140. 1400  return:'-------------------------------------------------------------
  141. 1410  SETFILL:
  142. 1420  poke contrl,23:poke contrl+2,0:poke contrl+6,1:poke intin,2:vdisys(0)
  143. 1430  poke contrl,24:poke contrl+2,0:poke contrl+6,1:poke intin,p-1:vdisys(0)
  144. 1440  return:'-------------------------------------------------------------
  145. 1450  COLORLOOP:
  146. 1460  cl=cl+1:if cl>15 then cl=2:gosub SAMPLEBUTTON:if pstatus<1 then return
  147. 1470  color 1,cl,1,1,1:x=44:y=29:gosub HIDECURSOR:X2=X+27:Y2=Y+24:gosub FILLBOX:gosub SETCOLOR:for t=0 to 300:next:p=p+1:gosub SETFILL
  148. 1480  if peek(systab)<4 then mode=2:gosub SETMODE:color 0:a$=str$(cl):dy=36:dx=44:gosub PRINTTXT:mode=1:gosub SETMODE:color 1
  149. 1490  gosub SHOWCURSOR:return:'--------------------------------------------------
  150. 1500  SETCOLOR:
  151. 1510  poke contrl,25:poke contrl+2,0:poke contrl+6,1:poke intin,cl:vdisys(0)
  152. 1520  return:'---------------------------------------------------------------
  153. 1530  SAMPLEBUTTON:
  154. 1540  poke contrl,124:poke contrl+2,0:poke contrl+6,0:vdisys(0)
  155. 1550  pstatus=peek(intout):x=peek(ptsout):y=peek(ptsout+2)
  156. 1560  return:'---------------------------------------------------------------
  157. 1570  SHOWCURSOR:
  158. 1580  poke contrl,122:poke contrl+2,0:poke contrl+6,1:poke intin,0:vdisys(0)
  159. 1590  return:'---------------------------------------------------------------
  160. 1600  HIDECURSOR:
  161. 1610  poke contrl,123:poke contrl+2,0:poke contrl+6,0:vdisys(0)
  162. 1620  return:'---------------------------------------------------------------
  163. 1630  ROUNDSQ:
  164. 1640  color 1,0,1,1,1
  165. 1650  poke contrl,11:poke contrl+2,2:poke contrl+6,0:poke contrl+10,9
  166. 1660  poke ptsin,cx:poke ptsin+2,cy:poke ptsin+4,cx+33:poke ptsin+6,cy+30:vdisys(0)
  167. 1670  return:'---------------------------------------------------------------
  168. 1680  GBARRAY:
  169. 1690  a#=gb:control=peek(a#):global=peek(a#+4):gintin=peek(a#+8):gintout=peek(a#+12):addrin=peek(a#+16):addrout=peek(a#+20)
  170. 1700  return:'---------------------------------------------------------------
  171. 1710  SETCLIP:
  172. 1720  poke contrl,129:poke contrl+2,2:poke contrl+6,1
  173. 1730  poke intin,flag:poke ptsin,1:poke ptsin+2,71:poke ptsin+4,304:poke ptsin+6,188:vdisys(0)
  174. 1740  return:'---------------------------------------------------------------
  175. 1750  KEYBOX:
  176. 1760  text$=text$+chr$(0)+chr$(0)
  177. 1770  a#=gb:gintin=peek(a#+8):gintout=peek(a#+12)
  178. 1780  n#=peek(a#+16):poke gintin,0
  179. 1790  b#=varptr(text$)
  180. 1800  def seg=0:c#=peek(b#)
  181. 1810  poke n#,c#
  182. 1820  gemsys(52)
  183. 1830  key=peek(gintout)
  184. 1840  gosub SHOWCURSOR
  185. 1850  return:'-------------------------------------------------------------
  186. 1860  SETWINDOW:
  187. 1870  '********************* get work stroage of window
  188. 1880  poke gintin,0
  189. 1890  poke gintin+2,4
  190. 1900  gemsys(104):           'WIND_GET
  191. 1910  xpos=peek(gintout+2)
  192. 1920  ypos=peek(gintout+4)
  193. 1930  wide= peek(gintout+6)
  194. 1940  high= peek(gintout+8)
  195. 1950  '******************* window create w/ name,close,full,move,size
  196. 1960  poke gintin,33
  197. 1970  poke gintin+2,xpos
  198. 1980  poke gintin+4,ypos
  199. 1990  poke gintin+6,wide
  200. 2000  poke gintin+8,high
  201. 2010  gemsys(100):           'WIND_CREATE
  202. 2020  wihand= peek(gintout)
  203. 2030  '***************** set window border and title
  204. 2040  poke gintin,wihand
  205. 2050  poke gintin+2,2
  206. 2060  s#=gintin+4
  207. 2070  t#=varptr(title$):def seg=0:r#=peek(t#):'LDW specific varptr
  208. 2080  poke s#,r#
  209. 2090  gemsys(105):           'WIND_SET
  210. 2100  '***************** open window
  211. 2110  poke gintin,wihand
  212. 2120  poke gintin+2,xpos
  213. 2130  poke gintin+4,ypos
  214. 2140  poke gintin+6,wide
  215. 2150  poke gintin+8,high
  216. 2160  gemsys(101):           'WIND_OPEN
  217. 2170  return:'------------------------------------------------------------
  218. 2180  GROWBOX:
  219. 2190  poke gintin+0,155:poke gintin+2,24:poke gintin+4,50:poke gintin+6,45
  220. 2200  poke gintin+8,2:poke gintin+10,67:poke gintin+12,304:poke gintin+14,132:gemsys(73)
  221. 2210  return:'-------------------------------------------------------------
  222. 2220  FILLBOX:
  223. 2230  poke contrl,114:poke contrl+2,2:poke contrl+6,0:poke ptsin,x
  224. 2240  poke ptsin+2,y  :poke ptsin+4,x2:poke ptsin+6,y2:vdisys(1)
  225. 2250  return:'--------------------------------------------------------------
  226. 2260  SETEFFECTS:
  227. 2270  poke contrl,106:poke contrl+2,0:poke contrl+6,1:poke intin,effect:vdisys(0)
  228. 2280  return:'--------------------------------------------------------------
  229. 2290  MUSIC:
  230. 2300  wave 7,7,11,30,0
  231. 2310  read vol,note,octave,dur:for v=1 to 3:sound v,vol+4,note,octave-v,dur/2:next
  232. 2320  return:'--------------------------------------------
  233. 2330  START:
  234. 2331  pk=peek(systab):if pk=4 then goto 2340
  235. 2332  text$="[3][|ROCK,SCISSOR,PAPER is intended| to run in low resolution][I'll change]"+chr$(0)+chr$(0)
  236. 2333  gosub KEYBOX:end
  237. 2340  fullw 2:clearw 2
  238. 2350  gosub GBARRAY:title$=" ST Stamp Pad "+chr$(0)+chr$(0):gosub SETWINDOW
  239. 2360  restore MUSICDATA
  240. 2370  for count=0 to 7:gosub MUSIC:next
  241. 2380  '
  242. 2390  dim point%(128,2),newpoint%(128,2),buffer(2,2),clr(2,2),fin(2,2),old%(16,3)
  243. 2400  p=1:cl=2:cy=26:c=1:z=1:s=12:dx=4:dy=69
  244. 2410  form=2:gosub CURSORFORM
  245. 2420  gosub GETOLD:restore MUSICDATA
  246. 2430  x1=0:y1=62:x2=308:y2=62:gosub ALINE
  247. 2440  for x=20 to 300 step 20:x1=x:y1=22:x2=x-20:y2=62:gosub ALINE:color 1,c,1,1,1:fill x-5,26:c=c+1:gosub MUSIC:if c=8then restore MUSICDATA:if c>15 then c=1:next
  248. 2450  restore MUSICDATA
  249. 2460  x1=0:y1=70:x2=308:y2=70:gosub ALINE:color 1,c:fill 302,26
  250. 2470  for cx=3  to 304 step 38:gosub ROUNDSQ:gosub MUSIC:next
  251. 2480  a$=" FILL COLOR  ZOOM   SPIN  EXTRA  MAN  WHALE  BOAT"
  252. 2490  restore MUSICDATA: gosub MUSIC
  253. 2500  height=3:gosub SETHEIGHT:gosub PRINTTXT:height=9:gosub SETHEIGHT
  254. 2510  gosub MUSIC
  255. 2520  color 1,1,1,p,2:x=6:y=29:x2=x+27:y2=y+24:gosub FILLBOX
  256. 2530  gosub MUSIC
  257. 2540  color 1,2,1,1,1:x=44:y=29:x2=x+27:y2=y+24:gosub FILLBOX
  258. 2550  if peek(systab)<4 then mode=2:gosub SETMODE:color 0:a$="2":dy=36:dx=44:gosub PRINTTXT:mode=1:gosub SETMODE:color 1
  259. 2560  gosub MUSIC
  260. 2570  gosub 1200:height=13:gosub SETHEIGHT:gosub HIDECURSOR
  261. 2580  a$=str$(z):dx=82:dy=48:gosub PRINTTXT:gosub MUSIC
  262. 2590  a$=str$(s):dx=118:dy=48:gosub PRINTTXT:gosub MUSIC
  263. 2600  a$=chr$(14)+chr$(15):dx=164:dy=48:gosub PRINTTXT:gosub MUSIC
  264. 2610  gosub SHOWCURSOR:height=9:gosub SETHEIGHT
  265. 2620  color 1,1,1:gosub SETFILL
  266. 2630  xt=210:yt=41:name$="man":gosub DRAWSHAPE
  267. 2640  restore MUSICDATA:gosub MUSIC
  268. 2650  xt=249:yt=41:name$="whale":gosub DRAWSHAPE
  269. 2660  restore MUSICDATA:gosub MUSIC
  270. 2670  xt=286:yt=41:name$="boat":gosub DRAWSHAPE
  271. 2680  restore MUSICDATA:gosub MUSIC
  272. 2690  sound 1,0,0,0,0:sound 2,0,0,0,0:sound 3,0,0,0,0:wave 0,0,0,0,0
  273. 2700  form=0:gosub CURSORFORM:color 1,2,1:gosub ERASELOOP
  274. 2710  text$="[0][|STSP  by RG Geiger|(c)ST Applications|a software toy for   |  low resolution  ][ begin | help ]"+chr$(0)+chr$(0):gosub KEYBOX
  275. 2720  if key=2 then gosub HELP
  276. 2730  '
  277. 2740  MAINLOOP:
  278. 2750  gosub SAMPLEBUTTON:box=int(x/38)+1
  279. 2760  if pstatus<1 or y>40 then goto MAINLOOP
  280. 2770  form=2:gosub CURSORFORM
  281. 2780  on box gosub PATTERNLOOP,COLORLOOP,ZOOMLOOP,SPINLOOP,EXTRALOOP,MANLOOP,WHALELOOP,BOATLOOP
  282. 2790  form=0:gosub CURSORFORM
  283. 2800  goto MAINLOOP
  284. 2810  '------------------------------------------------------------------
  285. 2820  HELP:
  286. 2830  effect=1:gosub SETEFFECTS
  287. 2840  height=3:gosub SETHEIGHT:dx=2:dy=76:gosub HIDECURSOR
  288. 2850  restore TEXTDATA:for times=0 to 18:read h$
  289. 2860  a$=h$:gosub PRINTTXT:dy=dy+6:next times
  290. 2870  height=9:gosub SETHEIGHT:effect=0:gosub SETEFFECTS
  291. 2880  gosub SHOWCURSOR:for pause=0 to 32000:next
  292. 2890  text$="[0][|FINISHED?    ][Yes|No]"+chr$(0)+chr$(0)
  293. 2900  gosub KEYBOX
  294. 2910  if key=1 then gosub ERASELOOP:color 1,2,1:return
  295. 2920  goto 2880
  296. 2930  SHAPEDATA:
  297. 2940  data "whale",30,-28,-24,-20,-22,-10,-24,-14,-20,-18,-14,-21,-2,-19,4,-16,-5,-11,-12,-4,-16,7,-16,18,-13,23,-7,26,-1,26,8,22,16,19,13,14,10,8,9,4,13,4,16,8,22,14,24,6,26,-18,23,-23,14,-28,6,-26,-4,-23,-12,-24,-18,-28,-24
  298. 2950  data "man",30,-4,-30,4,-30,8,-26,8,-22,4,-18,4,-15,13,-12,13,9,10,9,10,-7,8,-7,8,26,12,26,12,30,2,30,2,7,-2,7,-2,30,-12,30,-12,26,-8,26,-8,-7,-10,-7,-10,8,-13,8,-13,-12,-4,-15,-4,-18,-8,-22,-8,-26,-4,-30
  299. 2960  data "boat",25,-5,-28,-3,-28,-3,-5,11,-6,12,2,19,-1,25,-5,24,10,20,20,12,18,5,15,4,18,0,20,-9,18,-8,19,-11,21,-20,17,-21,19,-22,20,-24,19,-28,11,-16,10,-6,8,-6,-5,-5,-5,-5,-28
  300. 2970  TEXTDATA:
  301. 2980  data "The COMPILED version of STAMP PAD uses the mouse."
  302. 2990  data " To Selct an Option or Shape Square point cursor "
  303. 3000  data "            and Click a button."
  304. 3010  data " "
  305. 3020  data " "
  306. 3030  data " "
  307. 3040  data " "
  308. 3050  data " "
  309. 3060  data "    [FILL] - BUTTON will cycle avaliable PATTERNS"
  310. 3070  data "    [COLOR] - BUTTON will cycle avaliable COLORS"
  311. 3080  data "    [ZOOM] - BUTTON will cycle a SIZE from 1 to 4"
  312. 3090  data "    [SPIN] - BUTTON will cycle from 1- 12 O'Clock"
  313. 3100  data "    [EXTRA] - 3 TOOLS  [Erase][Cycle COLORS][End]"
  314. 3110  data "     [MAN} - BUTTON activates STAMP for printing "
  315. 3120  data "    [WHALE] - BUTTON activates STAMP for printing"
  316. 3130  data "     [BOAT] - BUTTON activates STAMP for printing"
  317. 3140  data " "
  318. 3150  data "* ALWAYS reset FILL after stamping a shape to the"
  319. 3160  data "                  Work Area!!"
  320. 3170  MUSICDATA:
  321. 3180  data 7,6,6,50, 7,1,6,50, 7,4,6,50, 7,11,5,25, 7,11,5,25, 7,1,6,75, 7,4,6,25
  322. 3190  data 7,6,6,200
  323. ə